home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Celestin Apprentice 5
/
Apprentice-Release5.iso
/
Source Code
/
Libraries
/
Sherlock 2.0
/
SDEL
/
SDELsrc
/
sdel_end.c
< prev
next >
Wrap
Text File
|
1996-04-02
|
483b
|
38 lines
/*
SDEL: Application-specific version of LIBend.c.
source: SDEL_end.c
started: April 2, 1996.
version: April 2, 1996.
*/
#include "sdel.h"
#include <LIBend.h>
#include <LIBlog.h>
#include <Dialogs.h>
static bool closing = FALSE; /* TRUE: do not call Sherlock. */
/*
Close all application files.
*/
void
end_close_all(void)
{}
/*
Close all files and exit.
*/
void
end_exit(void)
{
if (!closing) {
closing = TRUE;
end_close_all();
}
log_close();
ExitToShell();
}